home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Programmer's Utilities / GroundControl / Samples / Sample6.gc < prev    next >
Encoding:
Text File  |  1997-03-26  |  288 b   |  13 lines
  1. Messagebox("This macro will demonstrate the repeat command, and Goto commands...")
  2. GoTo(":SubRoutine1")
  3. :Return1
  4. GoTo(":TheExit")
  5.  
  6. :SubRoutine1
  7. Repeat(MessageBox("This is a simple Message box that will repeated 5 times...."),5)
  8. GoTo(":Return1")
  9.  
  10. :TheExit
  11. MessageBox("Done.")
  12.  
  13.